From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 15 Nov 2012 01:27:52 +0000 (-0500)
Subject: Backport fix for bug#12879 from trunk
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~2326^2~538
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3a514ab07e4f632f1870b029d616217bb8b50221;p=emacs.git

Backport fix for bug#12879 from trunk

* lisp/emacs-lisp/gv.el (setf): Fix debug spec for multiple assignments
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 80ae61df8c1..f78240cdced 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-11-15  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* emacs-lisp/gv.el (setf): Fix debug spec for multiple assignments
+	(bug#12879).
+
 2012-11-14  Glenn Morris  <rgm@gnu.org>
 
 	* subr.el (set-temporary-overlay-map): Doc fix.
diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el
index 965fc1c3ef0..49fefcf5233 100644
--- a/lisp/emacs-lisp/gv.el
+++ b/lisp/emacs-lisp/gv.el
@@ -236,7 +236,7 @@ For example, (setf (cadr x) y) is equivalent to (setcar (cdr x) y).
 The return value is the last VAL in the list.
 
 \(fn PLACE VAL PLACE VAL ...)"
-  (declare (debug (gv-place form)))
+  (declare (debug (&rest [gv-place form])))
   (if (and args (null (cddr args)))
       (let ((place (pop args))
             (val (car args)))